home *** CD-ROM | disk | FTP | other *** search
/ The World's Largest Collection of Windows Software / The World's Largest Collection of Windows Software - Disc 1.iso / connect / _j2 / wvnsc926 / ini_news.c < prev    next >
C/C++ Source or Header  |  1994-09-21  |  14KB  |  472 lines
  1. /*
  2.  *                              
  3.  * $Id: ini_news.c 1.6 1994/09/15 22:23:09 brydon Exp $
  4.  * $Log: ini_news.c $
  5.  * Revision 1.6  1994/09/15  22:23:09  brydon
  6.  * allow config files with read-only/archive/system bits set
  7.  *
  8.  * Revision 1.5  1994/09/06  12:46:21  brydon
  9.  * win32 fixes, comments changed
  10.  *
  11.  * Revision 1.5  1994/08/09  15:30:00  brydon
  12.  * More searching, OPENFILENAME logic fix
  13.  *
  14.  * Revision 1.4  1994/02/17  19:49:53  brydon
  15.  * cleanup and fixes for win32
  16.  *
  17.  * Revision 1.3  1993/12/08  01:28:01  rushing
  18.  * new version box and cr lf consistency
  19.  *
  20.  * Revision 1.2  1993/07/07  19:52:22  rushing
  21.  * check value returned from getenv for NULL
  22.  *
  23.  * Revision 1.1  1993/02/16  20:53:50  rushing
  24.  * Initial revision
  25.  *
  26.  *
  27.  */
  28.  
  29. /*#*xx********************************************************************/
  30. /* Filename: Ini-News.c */
  31.  
  32. #include <windows.h>
  33. #include <stdlib.h>
  34. #include <direct.h>
  35. #include "WvGlob.h"
  36. #include <time.h>
  37. #include <commdlg.h>
  38.  
  39. #ifdef WIN32   /* Looks like SDK defines "WIN32", MSVCNT defines "_WIN32" */
  40. #ifndef _WIN32
  41. #define _WIN32
  42. #endif
  43. #endif
  44.  
  45. #ifndef TRACE
  46. #ifdef _DEBUG
  47. char    szDebugBuffer[80];
  48. #define TRACE(parm1,parm2) {\
  49.     wsprintf(szDebugBuffer,parm1,parm2);\
  50.     OutputDebugString(szDebugBuffer);}
  51. #else
  52. #define TRACE(parm1,parm2)
  53. #endif
  54. #endif
  55.  
  56. #define PROFTYPE "Admin"
  57.  
  58. /*************************************************************************
  59.   This function looks for the .Ini file and the NewsSrc file.  Each file
  60.   is searched for separately and they need not be in the same directory.
  61.   If neither file can be found, the user is asked to locate the files with
  62.   an OPENFILENAME dialog box.  Once the location of the NewSrc file is
  63.   known, it is saved in the WinVN.ini file.
  64.  
  65.   The search order is:
  66.     Command Line (one or two entries)
  67.     Environment variable "WINVN" or "winvn" (case sensitive in Win16)
  68.     Current Working directory (set by "Properties" dialog)
  69.     Application Directory
  70.     Windows Directory (eg. C:\WINDOWS)
  71.     Windows System Directory (eg. C:\WINDOWS\SYSTEM, \System32)
  72.     the path
  73.     result of an "Open File" dialog box (WinVN.ini only)
  74.     the .INI file (NewSrc only)
  75.     result of an "Open File" dialog box (NewSrc only)
  76.  
  77.  
  78.   If the Function is sucessful, the szAppProFile variable contains the path and
  79.   filename of the .Ini file and the szNewsSrc variable contains the path and
  80.   filename of the NewSrc file.  If either file does not exist, the "Open
  81.   File" dialog creates each file.  In all cases, the name of the NewSrc
  82.   file is written to the .INI file for future accesses.
  83.  
  84.   RETURNS:  zero if sucessful
  85.             -1 if one or both files could not be found
  86.  
  87.   NOTE: The command line allows for the use of unique names for the standard
  88.         WinVn.ini and NewSrc files. The entry order is .Ini and then NewSrc.
  89.  
  90.  Command line examples are as follows:
  91.  
  92.   1.  c:\WinVn\My.Ini<sp>c:\Tom\NewsSrc.Tom  => both unique names
  93.  
  94.   2.  c:\Tom<sp>c:\Tom\NewsSrc.Tom        => standard .Ini, unique NewSrc
  95.   2a. c:\Tom\<sp>c:\Tom\NewsSrc.Tom          (same, less ambiguous)
  96.  
  97.   3.  c:\Tom\TomVn.ini                    => unique .Ini, Standard NewSrc
  98.  
  99.   4.  c:\Tom                              => standard .Ini, Standard NewSrc
  100.   4a. c:\Tom\                                (same, less ambiguous)
  101.  
  102.   In the first example, if both files exist, szAppProFile = "c:\WinVn\My.Ini",
  103.   szNewsSrc = "c:\Tom\NewsSrc.Tom" and the function returns Zero.
  104.  
  105.  For all specification types other than the Command line:
  106.  1. Only one entry may be made.
  107.  2. The "Working directory" spec doesn't allow trailing "\".
  108.  3. Syntax and algorithm are otherwise the same as for Command Line.
  109.  
  110. **************************************************************************/
  111.  
  112. #define CHECK_DIR 1
  113. #define CHECK_FILE 2
  114.  
  115. /*  Routine to test existence of filename on path choice */
  116. BOOL ProbeFilePath(char *szFileSrc, char *szPath, char *szFname, int iChk)
  117. { 
  118.   DWORD stat;
  119.   OFSTRUCT ofb;
  120.  
  121.   /* Check for path in the form of "x:\dir\...\dir[\]" */
  122.   if(iChk & CHECK_DIR)
  123.   {
  124.     int i;
  125.     lstrcpy(szFileSrc, szPath);
  126.     i = lstrlen(szFileSrc);
  127.     if(i)
  128.     {
  129.       if (szFileSrc[i-1] == '\\')  /* Trailing '\', it must be a directory */
  130.       {
  131.         lstrcat(szFileSrc, szFname);
  132.         if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  133.         {
  134.           lstrcpy(szFileSrc, ofb.szPathName);
  135.           return (TRUE);
  136.         }
  137.         else
  138.           return(FALSE);
  139.       }
  140.     }
  141. #ifdef GetFileAttributes  /*  32 bit  */
  142.     stat = GetFileAttributes(szFileSrc);
  143.     if((stat != 0xFFFFFFFF) && (stat & FILE_ATTRIBUTE_DIRECTORY))
  144. #else                     /*  16 bit  */
  145.     stat = 0;  /* avoid 'unreferenced' warning */
  146.     if(TRUE)
  147. #endif
  148.     {
  149.       lstrcat(szFileSrc, "\\");
  150.       lstrcat(szFileSrc, szFname);
  151.       if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  152.       {
  153.         lstrcpy(szFileSrc, ofb.szPathName);
  154.         return TRUE;
  155.       }
  156.     }
  157.   }
  158.   
  159.   /* Check for non-directory file in the form of "x:\dir\...\dir\file.ext" */
  160.   if (iChk & CHECK_FILE)
  161.   {
  162.     lstrcpy(szFileSrc, szPath);
  163.  
  164. #ifdef GetFileAttributes
  165.     if (GetFileAttributes(szFileSrc) & FILE_ATTRIBUTE_DIRECTORY)
  166.       return(FALSE);
  167. #endif
  168.  
  169.     if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  170.     {
  171.       lstrcpy(szFileSrc, ofb.szPathName);
  172.       return TRUE;
  173.     }
  174.   }
  175.   return FALSE;
  176. }
  177.  
  178.  
  179.  
  180. /*  See if we can find the WinVN.ini and NewSrc files... */
  181. int LocIniSrc(HINSTANCE hInstance, LPSTR lpCmdLine)
  182. {
  183.   char szWPath[256];
  184.   
  185.   char szIniDef[] = "WinVN.ini";   /* ' .ini' default filename */
  186.   char szNewsDefault[] = "NewSrc"; /* 'newsrc' default filename  */
  187.  
  188.   BOOL fProfileFound = FALSE;
  189.   BOOL fNewsFound = FALSE;
  190.  
  191.   int iRvalue;
  192.  
  193.   LPSTR lpEnvStr;
  194.   OFSTRUCT ofOpenBuffer;
  195.  
  196.   ofOpenBuffer.cBytes = sizeof (OFSTRUCT);
  197.  
  198.      
  199.   if (*lpCmdLine != '\0')  /* Look at the Command Line */
  200.   {           /* path | path and file */
  201.     lstrcpy (szWPath, lpCmdLine);
  202.     TRACE("Checking Command Line: %s\n", szWPath);
  203.     iRvalue = lstrlen (szWPath);
  204.  
  205.     while (iRvalue--)
  206.     {           /* check for two arguments */
  207.       if (szWPath[iRvalue] == ' ')
  208.       { szWPath[iRvalue] = 0;
  209.         break;
  210.       }
  211.     }
  212.  
  213.     if (iRvalue > 0)
  214.     { /* two entries on command line - check for path and/or path\file */
  215.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  216.         szIniDef, CHECK_DIR | CHECK_FILE);
  217.       fNewsFound = ProbeFilePath(szNewsSrc, &szWPath[iRvalue + 1], 
  218.         szNewsDefault, CHECK_FILE);
  219.     }
  220.  
  221.     else
  222.     { /* single command line entry - path and/or path\file */
  223.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  224.         szIniDef, CHECK_DIR | CHECK_FILE);
  225.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  226.         szNewsDefault, CHECK_DIR);
  227.     }
  228.   if(fProfileFound && fNewsFound) return 0;
  229.   }
  230.  
  231.     
  232.  
  233.       /* Look in the Environment for a path */
  234.   if ((lpEnvStr = getenv ("winvn")) == NULL)
  235.   {
  236.     lpEnvStr = getenv ("WINVN");
  237.   }
  238.  
  239.   if (lpEnvStr && (iRvalue = lstrlen(lpEnvStr)))
  240.   {           /* found environment varible, check it out */
  241.     lstrcpy (szWPath, lpEnvStr);
  242.     
  243.     TRACE("Checking environment var: %s\n", szWPath);
  244.     if (!fProfileFound)
  245.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  246.         szIniDef, CHECK_DIR | CHECK_FILE);
  247.  
  248.     if (!fNewsFound)
  249.       fNewsFound = ProbeFilePath(szNewsSrc, &szWPath[iRvalue + 1], 
  250.         szNewsDefault, CHECK_DIR | CHECK_FILE);
  251.  
  252.     if (fProfileFound && fNewsFound)
  253.       return 0;
  254.   }
  255.  
  256.  
  257.  
  258.   /* Look in the current working Directory */
  259.   if (_getcwd(szWPath, sizeof(szWPath)))
  260.   {
  261.     TRACE("Checking current working directory: %s\n", szWPath);
  262.     if (!fProfileFound)
  263.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  264.         szIniDef, CHECK_DIR);
  265.  
  266.     if (!fNewsFound)
  267.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  268.         szNewsDefault, CHECK_DIR);
  269.  
  270.     if (fProfileFound && fNewsFound) return 0;
  271.   }
  272.  
  273.  
  274.  
  275.   /* Look in WinVn's Directory */
  276.   if (iRvalue = GetModuleFileName(hInstance, szWPath, sizeof(szWPath)))
  277.   {
  278.     while (iRvalue--)
  279.     {           /* remove the module name */
  280.       if (szWPath[iRvalue] == '\\')
  281.       { szWPath[++iRvalue] = 0;
  282.         break;
  283.       }
  284.     }
  285.  
  286.     TRACE("Checking WinVN directory: %s\n", szWPath);
  287.     if (!fProfileFound)
  288.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  289.         szIniDef, CHECK_DIR);
  290.  
  291.     if (!fNewsFound)
  292.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  293.         szNewsDefault, CHECK_DIR);
  294.  
  295.     if (fProfileFound && fNewsFound) return 0;
  296.   }
  297.  
  298.  
  299.  
  300.   /* Look in the Windows Directory */
  301.   if (GetWindowsDirectory(szWPath, sizeof(szWPath)))
  302.   {
  303.     TRACE("Checking Windows directory: %s\n", szWPath);
  304.     if (!fProfileFound)
  305.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  306.         szIniDef, CHECK_DIR);
  307.  
  308.     if (!fNewsFound)
  309.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  310.         szNewsDefault, CHECK_DIR);
  311.  
  312.     if (fProfileFound && fNewsFound) return 0;
  313.   }
  314.  
  315.  
  316.  
  317.   /* Look in the Windows System Directory */
  318.   if (GetSystemDirectory (szWPath, sizeof(szWPath)))
  319.   {
  320.     TRACE("Checking Windows System directory: %s\n", szWPath);
  321.     if (!fProfileFound)
  322.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  323.         szIniDef, CHECK_DIR);
  324.  
  325.     if (!fNewsFound)
  326.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  327.         szNewsDefault, CHECK_DIR);
  328.  
  329.     if (fProfileFound && fNewsFound) return 0;
  330.   }
  331.  
  332.  
  333.  
  334.   /* Try the current path */
  335.   szWPath[0] = '\0';
  336.   TRACE("Checking path\n", "");
  337.   if (!fProfileFound)
  338.     fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  339.       szIniDef, CHECK_DIR);
  340.  
  341.   if (!fNewsFound)
  342.     fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  343.       szNewsDefault, CHECK_DIR);
  344.  
  345.   if (fProfileFound && fNewsFound) return 0;
  346.   else
  347.   { /* Ask the user if he wants to create the files */
  348.     static OPENFILENAME ofn;
  349.  
  350.     ofn.lStructSize       = sizeof(OPENFILENAME);
  351.     ofn.hwndOwner         = NULL;
  352.     ofn.hInstance         = NULL;
  353.  /* ofn.lpstrFilter       = (Filled in below)  */
  354.     ofn.lpstrCustomFilter = NULL;
  355.     ofn.nMaxCustFilter    = 0;
  356.     ofn.nFilterIndex      = 0;
  357.  /* ofn.lpstrFile         = (Filled in below)  */
  358.  /* ofn.nMaxFile          = (Filled in below)  */
  359.     ofn.lpstrFileTitle    = NULL;
  360.     ofn.nMaxFileTitle     = 0;
  361.     ofn.lpstrInitialDir   = szWPath;
  362.     ofn.lpstrTitle        = "Please identify existing or new filename";
  363.     ofn.Flags             =
  364.       OFN_CREATEPROMPT
  365. #ifdef OFN_NONETWORKBUTTON
  366.       | OFN_NONETWORKBUTTON
  367. #endif    
  368.       | OFN_NOREADONLYRETURN;
  369.     ofn.nFileOffset       = 0;
  370.     ofn.nFileExtension    = 0;
  371.  /* ofn.lpstrDefExt       = (Filled in below)  */
  372.     ofn.lCustData         = 0L;
  373.     ofn.lpfnHook          = NULL;
  374.     ofn.lpTemplateName    = NULL;
  375.  
  376.     if (!fProfileFound)
  377.     {
  378.       char szCreated[32];
  379.  
  380.       ofn.lpstrFilter       =
  381.         "Init Files (*.INI)\0*.ini\0All Files (*.*)\0*.*\0";
  382.       lstrcpy (szAppProFile, szIniDef);
  383.       ofn.lpstrFile         = szAppProFile;
  384.       ofn.nMaxFile          = sizeof(szAppProFile);
  385.       ofn.lpstrDefExt       = "INI";
  386.    
  387.       TRACE("Checking user-specified filename\n", "");
  388.       fProfileFound = GetOpenFileName(&ofn);
  389.       if (fProfileFound)
  390.       {
  391.         char dbuffer[9];
  392.         char tbuffer[9];
  393.         OFSTRUCT ofs;
  394.  
  395.      /* ofn.lpstrInitialDir = ...  */
  396.      
  397.         if (OpenFile(szAppProFile, &ofs, OF_EXIST) == HFILE_ERROR)
  398.         {
  399.           _strdate(dbuffer);
  400.           _strtime(tbuffer);
  401.    
  402.           TRACE("Writing new WinVN.INI file to %s\n", szAppProFile);
  403.           lstrcpy(szCreated, dbuffer);
  404.           lstrcat(szCreated, " ");
  405.           lstrcat(szCreated, tbuffer);
  406.    
  407.           WritePrivateProfileString(PROFTYPE, "Created",
  408.             szCreated, szAppProFile);
  409.         }
  410.       }
  411.     }
  412.  
  413.  
  414.     /* Look for NewSrc spec in WinVN.INI */
  415.     if (fProfileFound && !fNewsFound)
  416.     {
  417.       TRACE("Checking %s for NewSrc file", szAppProFile);
  418.       if(GetPrivateProfileString(PROFTYPE, "Newsrc", "",
  419.          szNewsSrc, sizeof(szNewsSrc), szAppProFile))
  420.       {
  421.         OFSTRUCT ofs;
  422.         fNewsFound = (OpenFile(szNewsSrc, &ofs, OF_EXIST) != HFILE_ERROR);
  423.       }
  424.     }
  425.  
  426.  
  427.     /* Give up?  Ask the user where the file is... */
  428.     if (fProfileFound && !fNewsFound)
  429.     {
  430.       ofn.lpstrFilter       =
  431.         "No-ext Files (*.)\0*.\0All Files (*.*)\0*.*\0";
  432.       ofn.nFilterIndex      = 0;
  433.       lstrcpy (szNewsSrc, szNewsDefault);
  434.       ofn.lpstrFile         = szNewsSrc;
  435.       ofn.nMaxFile          = sizeof(szNewsSrc);
  436.       ofn.lpstrDefExt       = "";
  437.     
  438.       fNewsFound = GetOpenFileName(&ofn);
  439.       if (fNewsFound)
  440.       {
  441.         HFILE hf;
  442.         OFSTRUCT ofs;
  443.         if (OpenFile(szNewsSrc, &ofs, OF_EXIST) == HFILE_ERROR)
  444.         {
  445.           hf = OpenFile(szNewsSrc, &ofs, OF_CREATE);
  446.           /* (Optionally write some default newsgroups here... */
  447.           _lclose(hf);
  448.         }
  449.       }
  450.     }
  451.   }
  452.  
  453.   if (fProfileFound && fNewsFound) return 0;
  454.   return (-1);
  455. }
  456.  
  457.  
  458. /*  Locate the WinVN.ini and NewSrc files... */
  459. int fnLocateFiles (HINSTANCE hInstance, LPSTR lpCmdLine)
  460. {
  461.   int result;
  462.   result = LocIniSrc(hInstance, lpCmdLine);
  463.   if (!result)
  464.   {
  465.     TRACE("WinVN.INI file located: %s\n", szAppProFile);
  466.     TRACE("NewSrc file located:    %s\n", szNewsSrc);
  467.     WritePrivateProfileString(PROFTYPE, "Newsrc",
  468.             szNewsSrc, szAppProFile);
  469.   }
  470.   return(result);
  471. } 
  472.